home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 56.zip / BS1 part 56 / Maxon Word d1.adf / INSTALL-MaxonWORD-Disk < prev    next >
Text File  |  1993-04-15  |  15KB  |  511 lines
  1. ; $VER: MaxonWORD Install Version 1.02 (02.04.93)
  2. ; Script zum Installieren von MaxonWORD auf Diskette
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #entpacken
  8. (cat "\n\nDie Fontdaten werden entpackt!\n\nWeiter mit \"Proceed\"\n"))
  9. (set #introduction
  10. (cat "\nMit diesem Installationsprogramm können Sie\n\n MaxonWORD\n\n auf "
  11.      "Disketten installieren. Die komplette Installation läuft nahezu vollständig "
  12.      "automatisch ab.\n\nBitte halten Sie eine formatierte Leerdiskette bereit!\n"
  13.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  14.      "Drücken Sie \"Abort Install\", um die Installation abzubrechen."))
  15. (set #askdir-help
  16. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  17.      "Sie gerne MaxonWORD installieren möchten. Danach klicken Sie "
  18.      "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
  19.      "Namen des Verzeichnisses an (z.B. WORK:MWORD). Dann drücken Sie "
  20.      "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
  21.      "Beschreibung der Schalter:\n\n"
  22.      "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  23.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  24.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  25.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  26.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  27.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  28.      "befindete sich ein Schieber, mit dem man sich durch eine "
  29.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  30.      "alle Einträge ausreicht.\n\n"
  31.      "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
  32.      "einer Schublade geklickt wird.\n\n"
  33.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  34.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  35.      "wurde.)\n\n"
  36.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  37.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  38.      "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
  39.      "anzusehen.\n\n"
  40.      "Über den Schalter \"Make New Drawer\" können Sie ein neues "
  41.      "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  42.      "angelegt, das Sie soeben betrachten.\n\n"
  43.      "Mit dem Schalter \"Proceed\" erklären Sie sich mit dem eingestellten "
  44.      "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
  45.      "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
  46.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  47.      "vorgenommen.\n\n"
  48.      "\"Help...\" zeigt diesen Text."))
  49. (set #help-startup
  50. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  51.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  52.      "bereits beim Systemstart ausführen.\n\n"
  53.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
  54.      "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  55.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  56.      "den Schalter \"Skip This Part\"\n\n"
  57.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  58. (set #help-delete
  59. (cat "Die Datei \"Assigns\" ist nur nötig, wenn Sie keine Änderungen in der "
  60.      "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
  61.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
  62.      "\"Assigns\" gelöscht.\n\n"
  63.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  64.      "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
  65.      "Installationsverzeichnis erhalten.\n\n"
  66.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  67. (set #startup-help
  68. (cat "Erklärung der Schalter:\n\n"
  69.      "\"Install for Real\"\n"
  70.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  71.      "\"Pretend to Install\"\n"
  72.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  73.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  74.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  75.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  76.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  77.      "Liste über alle durchgeführten Aktionen.\n\n"
  78.      "\"Printer\"\n"
  79.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  80.      "ausgegeben.\n\n"
  81.      "\"Log File\"\n"
  82.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  83.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  84.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  85.      "\"None\"\n"
  86.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  87. (set #no-inst
  88. (cat "\nDer Platz in dem von Ihnen gewählten Verzeichnis reicht nicht aus, um die "
  89.      "nötigsten MaxonWORD-Dateien zu kopieren\n\n"
  90.      "!!! Die Installation wird abgebrochen !!!"))
  91.  
  92. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren.\n"))
  93.  
  94. (set #COPVERZ    (cat "\nIn welches Verzeichnis soll MaxonWORD\nkopiert werden?\n\n"))
  95. (set #WORDFONTS    (cat "Die Fontdaten werden entpackt!\n\n"))
  96. (set #WORDDOKU    (cat "\nKopiere die Demo-Dokumente!\n\n"))
  97.  
  98. (set @WORDSIZE    500000)
  99. (set @FONTSIZE    700000)
  100. (set @CONFSIZE 20000)
  101.  
  102. (set @abort-button "Abbruch")
  103. (set @language "Deutsch")
  104.  
  105. (Procedure Inst_NormFiles
  106. ;    (if (< (getdiskspace @Dest) @Size)
  107. ;        (abort #no-inst))
  108.  
  109.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  110.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  111. )
  112.  
  113. (Procedure Inst_PatternFiles
  114. ;    (if (< (getdiskspace @Dest) @Size)
  115. ;        (abort #no-inst))
  116.  
  117.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  118.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  119. )
  120.  
  121. (Procedure Inst_LhaFiles
  122.     ;(set @In_File (tackon @Source @FName.lha))
  123.     (set @TMP (tackon "RAM:" @FName.lha))
  124.     (set @Dest_File (tackon @default-dest @Dest))
  125.     (if                                          ; Verzeichnis erzeugen
  126.         (= (exists @Dest_File) 0)
  127.         (makedir (@Dest_File)(infos))
  128.     )
  129.  
  130. ;    (if (< (getdiskspace @Dest_File) @Size)
  131. ;        (abort #no-inst))
  132.  
  133.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  134.     (working @Working @Dest)
  135.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  136.     (delete @TMP)
  137. )
  138.  
  139. (Procedure Inst_LhaFilesnew
  140.     ;(set @In_File (tackon @Source @FName.lha))
  141.     (set @TMP (tackon "RAM:" @FName.lha))
  142.     (set @Dest_File (tackon @default-dest @Dest))
  143.     (makedir (@Dest_File)(infos))
  144.  
  145. ;    (if (< (getdiskspace @Dest_File) @Size)
  146. ;        (abort #no-inst))
  147.  
  148.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  149.     (working @Working @Dest)
  150.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  151.     (delete @TMP)
  152. )
  153.  
  154.  
  155. (complete 0)
  156.  
  157. (message #introduction)
  158. (welcome)
  159.  
  160. (set verchoice 0)
  161.  
  162. (set verchoice
  163.     (askchoice
  164.         (prompt "\nSoll eine Minimalinstallation\nauf einer Diskette oder\neine Komplettinstallation auf\nzwei Disketten erstellt werden?")
  165.         (help @askchoice-help)
  166.         (choices "Minimal" "Komplett")
  167.         (default 0)
  168.     )
  169. )
  170.  
  171.  
  172. (set @default-dest                           ; Verzeichnis aussuchen 
  173.     (askdir
  174.         (prompt #COPVERZ)
  175.         (help    #askdir-help)
  176.         (default "DF1:")
  177.     )
  178. )
  179.  
  180. (if                                          ; Verzeichnis erzeugen
  181.     (= (exists @default-dest) 0)
  182.     (makedir @default-dest)
  183. )
  184.  
  185.  
  186.     (askdisk
  187.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD_Disk1\" ein!")
  188.         (help #askdir-help)
  189.         (dest "MaxonWORD_Disk1")
  190.     )
  191.  
  192. (copyfiles                                            ; LHX kopieren
  193.     (prompt #COPYRAM)
  194.     (help @copyfiles-help)
  195.     (source "MaxonWORD_Disk1:C")
  196.     (dest "RAM:")
  197.    (choices "Lhx")
  198. )
  199.  
  200. (if(= 0 (exists "RAM:Lhx"))
  201.     (abort #ERRORRAM))
  202.  
  203. (complete 5)
  204.  
  205. (if (= verchoice 0)        ; Soll eine Minimalkonfiuration erzeugt werden?
  206.     (
  207.         (
  208.             (set @Source "MaxonWORD_Disk1:")
  209.             (set @Dest "RAM:")
  210.            (set @Pattern "MWOR#?")
  211.             (set @Size @WORDSIZE)
  212.             (Inst_PatternFiles)
  213.         )
  214.     
  215.         (
  216.             (set @Source "RAM:")
  217.             (set @Dest @default-dest)
  218.            (set @Pattern "MWOR#?")
  219.             (set @Size @WORDSIZE)
  220.             (Inst_PatternFiles)
  221.         )
  222.         (delete "RAM:MWORD")
  223.         (delete "RAM:MWORD.info")
  224.  
  225.     (complete 15)
  226.     
  227.     (set @Dokument-Dir (tackon @default-dest "Dokumente"))
  228.     (set @Grafik-Dir (tackon @default-dest "Grafiken"))
  229.     
  230.         (if                                          ; Verzeichnis erzeugen
  231.             (= (exists @Dokument-Dir) 0)
  232.             (makedir (@Dokument-Dir)(infos))
  233.         )
  234.     
  235.         (if                                          ; Verzeichnis erzeugen
  236.             (= (exists @Grafik-Dir) 0)
  237.             (makedir (@Grafik-Dir)(infos))
  238.         )
  239.  
  240.         (    (set @Working #WORDDOKU)
  241.             (set @Dest "Ram:")
  242.             (set @Source "MaxonWORD_Disk1:Dokumente/")
  243.             (set @FName  "TextDemo.Dok")
  244.             (set @Size 0)
  245.             (Inst_NormFiles)
  246.         )
  247.         
  248.         (    (set @Working #WORDDOKU)
  249.             (set @Dest @Dokument-Dir)
  250.             (set @Source "Ram:")
  251.             (set @FName  "TextDemo.Dok")
  252.             (set @Size 0)
  253.             (Inst_NormFiles)
  254.         )
  255.  
  256.         (    (set @Working #WORDDOKU)
  257.             (set @Dest "Ram:")
  258.             (set @Source "MaxonWORD_Disk1:Dokumente/")
  259.             (set @FName  "FontDemo.Dok")
  260.             (set @Size 0)
  261.             (Inst_NormFiles)
  262.         )
  263.         
  264.         (    (set @Working #WORDDOKU)
  265.             (set @Dest @Dokument-Dir)
  266.             (set @Source "Ram:")
  267.             (set @FName  "FontDemo.Dok")
  268.             (set @Size 0)
  269.             (Inst_NormFiles)
  270.         )
  271.         
  272.         (    (set @Working #WORDDOKU)
  273.             (set @Dest "Ram:")
  274.             (set @Source "MaxonWORD_Disk1:Grafiken/")
  275.             (set @FName  "Demo.Iff")
  276.             (set @Size 0)
  277.             (Inst_NormFiles)
  278.         )
  279.         
  280.         (    (set @Working #WORDDOKU)
  281.             (set @Dest @Grafik-Dir)
  282.             (set @Source "Ram:")
  283.             (set @FName  "Demo.Iff")
  284.             (set @Size 0)
  285.             (Inst_NormFiles)
  286.         )
  287.         
  288.         (delete "RAM:TextDemo.Dok")
  289.         (delete "RAM:FontDemo.Dok")
  290.         (delete "RAM:Demo.Iff")
  291.  
  292.  
  293.     )
  294. )
  295.  
  296. (complete 30)
  297.  
  298. (
  299.     (set @Source "MaxonWORD_Disk1:S")    ; die Konfiguration muß immer im S-Verzeichnis stehen
  300.     (set @Dest "ram:")
  301.    (set @Pattern "MW#?")
  302.     (set @Size @CONFSIZE)
  303.     (Inst_PatternFiles)
  304.  
  305.     (set @Source "RAM:")    ; die Konfiguration muß immer im S-Verzeichnis stehen
  306.     (set @Dest "S:")
  307.    (set @Pattern "MW#?")
  308.     (set @Size @CONFSIZE)
  309.     (Inst_PatternFiles)
  310.  
  311.     (delete "RAM:MWORD.CFG")
  312.     (delete "RAM:MWORD.DEF")
  313. )
  314.  
  315. (complete 40)
  316.  
  317. (if (< (/ (getversion) 65536) 35)
  318.  
  319.     (copylib                                            ; die MW-Support.Library nur unter Kickstart 1.3 kopieren
  320.         (prompt "Die MWSUPPORT-LIBRARY wird kopiert ...")
  321.         (help
  322.             "Die MWSUPPORT-Library beinhaltet den Standard-Filerequester "
  323.           "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  324.           "installiert haben, dann ist hier eine neuere Version.\n\n"
  325.             @copyfiles-help
  326.         )
  327.         (source "MaxonWORD_Disk1:libs/mwsupport.library")
  328.         (dest "Libs:")
  329.         (confirm)
  330.     )
  331. )
  332.  
  333. (copylib                                            ; IFFPARSE-LIB - schauen ob die aktuelle 2.0 Version genutzt wird
  334.     (prompt "Die IFFParse-LIBRARY wird kopiert ...")
  335.     (help
  336.         "Die IFF-Library wird von MaxonWORD benötigt."
  337.       "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  338.       "installiert haben, dann ist hier eine neuere Version.\n\n"
  339.         @copyfiles-help
  340.     )
  341.     (source "MaxonWORD_Disk1:Libs/iffparse.library")
  342.     (dest "Libs:")
  343.     (confirm)
  344. )
  345.  
  346.  
  347. (complete 50)
  348.  
  349. (askdisk
  350.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD_Disk2\" ein!")
  351.     (help "Diese Diskette enthält die Postscript-Fonts.")
  352.     (dest "MaxonWORD_Disk2")
  353. )
  354.  
  355. (    (set @Working #WORDFONTS)
  356.     (set @Dest "Ram:")
  357.     (set @Source "MaxonWORD_Disk2:")
  358.     (set @FName  "PSFONTS.LHA")
  359.     (set @Size 0)
  360.     (Inst_NormFiles)
  361. )
  362.  
  363. (set @Font-Dir (tackon @default-dest "PS-FONTS"))
  364. (if                                          ; Verzeichnis erzeugen
  365.     (= (exists @Font-Dir) 0)
  366.     (makedir (@Font-Dir))
  367. )
  368.  
  369. (if (= verchoice 1)        ; Soll eine Minimalkonfiuration erzeugt werden?
  370.  
  371.     (
  372.         (set @font1   (cat "NimbusRoman   217726"))
  373.         (set @font2   (cat "NimbusSans    178755"))
  374.         (set @font3   (cat "NimbusMono    203703"))
  375.         (set @font4   (cat "Pinselschrift 92000"))
  376.         (set @font5   (cat "Fraktur       68299"))
  377.         (set @font6   (cat "Schreibschrift 69834"))
  378.         (set @font7   (cat "Symbole       45548"))
  379.          
  380.         (set @name
  381.             (askoptions
  382.                 (prompt "Bitte wählen Sie die Fonts aus, die installiert werden sollen!"
  383.                                 " Bitte beachten Sie die Größe der einzelnen Fonts, da nicht alle "
  384.                                 " auf einer Diskette installiert werden können!\n\n"
  385.                                 "Eine Sicherheitsabfrage findet nicht satt!")
  386.                 (help @askoptions-help)
  387.                 (choices @font1 @font2 @font3 @font4 @font5 @font6 @font7)
  388.                 (default 1)
  389.             )
  390.         )
  391.  
  392.         (message #entpacken)
  393.  
  394.         (if (BITAND @name 1)    ; NimbusRoman
  395.             (
  396. ;            (message @font1)
  397.             (run ("RAM:Lhx -E -N x %s \"%s/\" %s" "RAM:PSFONTS.LHA" @Font-Dir "NimbusRoman#?"))
  398.             )
  399.         )
  400.         
  401.         (if (BITAND @name 2)    ; NimbusSans
  402.             (
  403. ;            (message @font2)
  404.             (run ("RAM:Lhx -E -N x %s \"%s/\" %s" "RAM:PSFONTS.LHA" @Font-Dir "NimbusSans#?"))
  405.             )
  406.         )
  407.     
  408.         (if (BITAND @name 4)    ; NimbusMono
  409.             (
  410. ;            (message @font3)
  411.             (run ("RAM:Lhx -E -N x %s \"%s/\" %s" "RAM:PSFONTS.LHA" @Font-Dir "NimbusMono#?"))
  412.             )
  413.         )
  414.  
  415.         (if (BITAND @name 8)    ; Pinselschrift
  416.             (
  417. ;            (message @font4)
  418.             (run ("RAM:Lhx -E -N x %s \"%s/\" %s" "RAM:PSFONTS.LHA" @Font-Dir "Pinsel#?"))
  419.             )
  420.         )
  421.  
  422.         (if (BITAND @name 16)    ; Fraktur
  423.             (
  424. ;            (message @font5)
  425.             (run ("RAM:Lhx -E -N x %s \"%s/\" %s" "RAM:PSFONTS.LHA" @Font-Dir "Fraktur#?"))
  426.             )
  427.         )
  428.  
  429.         (if (BITAND @name 32)    ; Schreibschrift
  430.             (
  431. ;            (message @font6)
  432.             (run ("RAM:Lhx -E -N x %s \"%s/\" %s" "RAM:PSFONTS.LHA" @Font-Dir "Schreibschrift#?"))
  433.             )
  434.         )
  435.  
  436.         (if (BITAND @name 64)    ; Symbole
  437.             (
  438. ;            (message @font7)
  439.             (run ("RAM:Lhx -E -N x %s \"%s/\" %s" "RAM:PSFONTS.LHA" @Font-Dir "Symbol#?"))
  440.             )
  441.         )
  442.     )
  443.  
  444.     (
  445.         (message #entpacken)
  446.     
  447.         (run ("RAM:Lhx -E -N x %s \"%s/\" %s" "RAM:PSFONTS.LHA" @Font-Dir "NimbusRoman.#?"))
  448.         (run ("RAM:Lhx -E -N x %s \"%s/\" %s" "RAM:PSFONTS.LHA" @Font-Dir "NimbusSans.#?"))
  449.         (run ("RAM:Lhx -E -N x %s \"%s/\" %s" "RAM:PSFONTS.LHA" @Font-Dir "Schreibschrift.#?"))
  450.         (run ("RAM:Lhx -E -N x %s \"%s/\" %s" "RAM:PSFONTS.LHA" @Font-Dir "Pinselschrift.#?"))
  451.     )
  452. )
  453.  
  454. (delete "RAM:PSFONTS.LHA")
  455. (delete "RAM:LhX")
  456.  
  457. (complete 90)
  458.  
  459. ; ------- STARTUP ÄNDERN
  460.  
  461. (if (= verchoice 1)        ; Soll eine Minimalkonfiuration erzeugt werden?
  462.     (
  463.     (set command1 (cat "ASSIGN MWORD: MaxonWORD_Disk1:\nASSIGN PS-Fonts: " @Font-Dir))
  464.     )
  465.  
  466.     (
  467.     (set command1 (cat "ASSIGN MWORD: " @default-dest "\nASSIGN PS-Fonts: " @Font-Dir))
  468.     )
  469. )
  470.  
  471. (set command1.txt
  472.     (cat 
  473.          "\n\n\nUm mit dem MaxonWORD richtig arbeiten zu "
  474.       "können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  475.          command1
  476.     )
  477. )
  478.  
  479. (startup "MaxonWORD.app"
  480.     (prompt command1.txt)
  481.     (help #help-startup)
  482.     (command command1)
  483. )
  484.  
  485. (makeassign "PS-Fonts")
  486. (makeassign "PS-Fonts" @Font-Dir)
  487. (makeassign "MWORD")
  488.  
  489. (if (= verchoice 1)        ; Soll eine Minimalkonfiuration erzeugt werden?
  490.     (
  491.     (makeassign "MWORD" "MaxonWORD_Disk1:")
  492.     )
  493.  
  494.     (
  495.     (makeassign "MWORD" @default-dest)
  496.     )
  497. )
  498.  
  499. (complete 100)
  500.  
  501. ; ------- FERTIG
  502.  
  503. (message (cat 
  504.     "Installation der Textverarbeitung MaxonWORD beendet.\n"
  505.    "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  506.    "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  507.    "\n\nViel Erfolg!")
  508. )
  509.  
  510.  
  511.